home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
301-325
/
disk_308
/
freq
/
examples
/
dearc
< prev
next >
Wrap
Text File
|
1992-05-06
|
802b
|
36 lines
/* DeArc.rexx - uses the ARC command to extract archive files */
/* ** Note ** This program assumes that you have the 'ARC' program located
in your SYS:C directory */
if ~(Show('P', 'FileRequester')) then
do
ADDRESS COMMAND "Run >NIL: <NIL: DEVS:Freq >NIL: <NIL:"
ADDRESS COMMAND "WaitForPort FileRequester"
if ~(Show('P', 'FileRequester')) then
do
say "UnAble to Load FileRequester"
exit
end
end
OPTIONS RESULTS
ADDRESS "FileRequester"
'SetPattern' /* clear the pattern */
'SetFileName' /* clear the filename */
more = "TRUE"
do while more = "TRUE"
'SetTitle Select an Archive to Extract'
'DisplayDef'
'GETFILENAME'
if (RC = 0) then
ADDRESS COMMAND 'SYS:C/ARC -x' '"' || Result || '"'
else
do
more = "FALSE"
say 'Operation Canceled'
end
end
exit 0